home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / archives / sfx3_00.lha / sfx / Rexx / tester-2.rexx next >
Encoding:
OS/2 REXX Batch file  |  1994-12-23  |  604 b   |  32 lines
  1. /* SFX Arexxtester */
  2.  
  3. options results
  4.  
  5. ADDRESS REXX_SFX
  6.  
  7. say 'SFX-ArexxTester';say;
  8.  
  9. PutSample '595880 12000 basedrum 1';
  10. if RC~=0 then call AppError('PutSample',RC);
  11.  
  12. say 'press key to continue';
  13. pull;
  14.  
  15. GetSample '595880 1'
  16. if RC~=0 then call AppError('GetSample',RC);
  17.  
  18. exit
  19.  
  20. AppError:procedure
  21.     cmd=arg(1);
  22.     ret=arg(2);
  23.     say 'Application Error';say;
  24.     say 'Command 'cmd' failed with Returncode 'ret;
  25.     select
  26.         when ret='1' then say '    => unknown command';
  27.         when ret='2' then say '    => unknown parameter';
  28.         otherwise say '    => unknown returncode';
  29.     end
  30.     say;
  31. return
  32.